home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 355 / source / oops_js / oopsmsg3.mod < prev    next >
Text File  |  1990-02-02  |  3KB  |  71 lines
  1. IMPLEMENTATION MODULE oopsmsg3; (* Ken Badertscher (KBAD) 2/23/87 *)
  2.  
  3. FROM oopsmsg1 IMPORT ErrMsgs;
  4.  
  5. PROCEDURE AssignErr3(VAR errs : ErrMsgs);
  6. BEGIN
  7. errs[119] := '(* ^^^operand type incompatible with / *)';
  8. errs[120] := '(* ^^^operand type incompatible with DIV *)';
  9. errs[121] := '(* ^^^operand type incompatible with MOD *)';
  10. errs[122] := '(* ^^^operand type incompatible with AND *)';
  11. errs[123] := '(* ^^^operand type incompatible with + *)';
  12. errs[124] := '(* ^^^operand type incompatible with - *)';
  13. errs[125] := '(* ^^^operand type incompatible with OR *)';
  14. errs[126] := '(* ^^^operand type incompatible with relation *)';
  15. errs[127] := '(* ^^^procedure must have level 0 *)';
  16. errs[128] := '(* ^^^result type of P does not match that of T *)';
  17. errs[129] := 
  18.   '(* ^^^mismatch of a parameter of P with the formal type list of T *)';
  19. errs[130] := 
  20.   '(* ^^^procedure has fewer parameters than the formal type list *)';
  21. errs[131] := '(* ^^^procedure has more parameters than the formal type list *)';
  22. errs[132] := '(* ^^^assignment of a negative integer to a cardinal variable *)';
  23. errs[133] := '(* ^^^incompatible assignment *)';
  24. errs[134] := '(* ^^^assignment to non-variable *)';
  25. errs[135] := 
  26.   '(* ^^^type of expression in IF, WHILE, UNTIL clause must be BOOLEAN *)';
  27. errs[136] := '(* ^^^call of an object which is not a procedure *)';
  28. errs[137] := 
  29.   '(* ^^^type of VAR parameter not identical to that of actual parameter *)';
  30. errs[139] := '(* ^^^type of RETURN expression differs from procedure type *)';
  31. errs[140] := '(* ^^^illegal type of CASE expression *)';
  32. errs[141] := '(* ^^^step in FOR clause cannot be 0 *)';
  33. errs[142] := '(* ^^^illegal type of control variable *)';
  34. errs[144] := '(* ^^^incorrect type of parameter of standard procedure *)';
  35. errs[145] := '(* ^^^this parameter should be a type identifier *)';
  36. errs[146] := '(* ^^^string is too long *)';
  37. errs[147] := '(* ^^^incorrect priority specification *)';
  38. errs[150] := '(* ^^^exported identifier collides with declared identifier *)';
  39. errs[151] := '(* ^^^(not yet implemented) *)';
  40. errs[152] := '(* ^^^integer too small for sign inversion *)';
  41. errs[153] := '(* ^^^set element outside word range *)';
  42. errs[154] := '(* ^^^overflow in multipliaction *)';
  43. errs[155] := '(* ^^^overfolow in division *)';
  44. errs[156] := '(* ^^^division by zero, or modulus with negative value *)';
  45. errs[157] := '(* ^^^overflow in addition *)';
  46. errs[158] := '(* ^^^overflow in subtraction *)';
  47. errs[159] := '(* ^^^cardinal value assigned to integer variable too large *)';
  48. errs[160] := '(* ^^^set size too large *)';
  49. errs[161] := '(* ^^^array size too large *)';
  50. errs[162] := '(* ^^^address too large (compiler error?) *)';
  51. errs[163] := 
  52.   '(* ^^^character array component cannot correspond to VAR parameter *)';
  53. errs[164] := '(* ^^^illegal store operation (compiler error?) *)';
  54. errs[165] := '(* ^^^set elements must be constants *)';
  55. errs[166] := '(* ^^^expression too complex  (stack overflow) *)';
  56. errs[167] := 
  57.   '(* ^^^double precision multiply and divide are not implemented *)';
  58. errs[168] := '(* ^^^output file not opened  (directory full?) *)';
  59. errs[169] := '(* ^^^output incomplete (disk full?) *)';
  60. errs[170] := '(* ^^^too many external references *)';
  61. errs[171] := '(* ^^^too many strings *)';
  62. errs[172] := '(* ^^^program too long *)';
  63.  
  64. END AssignErr3;
  65.  
  66. END oopsmsg3.
  67.  
  68.  
  69.  
  70.  
  71.